home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Productivity / atOnce / atOnce! Demo / atOnce! Demo / card_69100.txt < prev    next >
Text File  |  1990-03-20  |  3KB  |  164 lines
  1. -- card: 69100 from stack: in
  2. -- bmap block id: 69780
  3. -- flags: 4000
  4. -- background id: 69320
  5. -- name: a1
  6. ----- HyperTalk script -----
  7. on opencard
  8.  
  9.   set lockscreen to true
  10.   set highlite of button "Setup" to false
  11.   set highlite of button "Enter" to false
  12.   set highlite of button "Print" to false
  13.   put empty into card field 1
  14.  
  15.   FlashOffInfo
  16.   Unlock screen
  17.  
  18.   set userlevel to 2
  19.   hide menubar
  20.   hide bkgnd button "bSpeeder"
  21.   hide bkgnd button "vNOT"
  22.   hide bkgnd button "vRUN"
  23.   choose browse tool
  24.   set lockText of card field 1 to false
  25.   put empty into card field 1
  26.   show card field 1
  27.   put rect of card field 1 into pos
  28.   put item 1 of pos & "," & item 2 of pos into c
  29.   click at c
  30.   type "atOnce! keeps you on top of the"
  31.   type return
  32.   type "three standard business operations:"
  33.   type return
  34.   type "             ............Setting up records,"
  35.   type return
  36.   type "                  ............Entering data.....and"
  37.   type return
  38.   type "                        ............Printing reports,"
  39.   set highlite of button "Setup" to true
  40.   play harpsichord "c"
  41.   wait 50
  42.   set highlite of button "Enter" to true
  43.   play harpsichord "e"
  44.   wait 50
  45.   set highlite of button "Print" to true
  46.   play harpsichord "d"
  47.   wait 40
  48.  
  49.   hide card field 1
  50.   set lockscreen to true
  51.   go to next card
  52.   flashoffinfo
  53.  
  54. end opencard
  55.  
  56.  
  57. on closecard
  58.  
  59.   put empty into card field 1
  60.   hide card field 1
  61.  
  62. end closecard
  63.  
  64.  
  65.  
  66.  
  67. -- part 1 (field)
  68. -- low flags: 80
  69. -- high flags: 2004
  70. -- rect: left=127 top=113 right=216 bottom=431
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 2
  75. -- text size: 12
  76. -- style flags: 256
  77. -- line height: 16
  78. -- part name: 
  79.  
  80.  
  81. -- part 2 (button)
  82. -- low flags: 00
  83. -- high flags: 4000
  84. -- rect: left=161 top=0 right=19 bottom=205
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Setup
  93.  
  94.  
  95. -- part 3 (button)
  96. -- low flags: 00
  97. -- high flags: 4000
  98. -- rect: left=207 top=0 right=19 bottom=253
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Enter
  107.  
  108.  
  109. -- part 4 (button)
  110. -- low flags: 00
  111. -- high flags: 4000
  112. -- rect: left=255 top=0 right=19 bottom=299
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Print
  121.  
  122.  
  123. -- part 6 (button)
  124. -- low flags: 00
  125. -- high flags: 0000
  126. -- rect: left=1 top=186 right=223 bottom=52
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: Return
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.  
  138. end mouseUp
  139.  
  140.  
  141.  
  142. -- part contents for background part 41
  143. ----- text -----
  144. card id 46142
  145.  
  146. -- part contents for background part 42
  147. ----- text -----
  148. card id 46142
  149.  
  150. -- part contents for background part 43
  151. ----- text -----
  152. 1
  153.  
  154. -- part contents for background part 52
  155. ----- text -----
  156. 0.1
  157.  
  158. -- part contents for background part 63
  159. ----- text -----
  160. MENU
  161.  
  162. -- part contents for background part 68
  163. ----- text -----
  164. 3